//===========================================================================
//                                            FASTER GRAPHICS USING A TBitmap
//                                             Nick Gessler 19 September 2012                                                            
//===========================================================================

//===========================================================================
//                                                                  VARIABLES
//===========================================================================

// declare your Bitmap
Graphics::TBitmap* worldBMP = new Graphics::TBitmap();   

//===========================================================================
//                                                                  FUNCTIONS
//===========================================================================

// draw your graphics on the Bitmap
void someGraphics (void) {
	for (int i = 0; i < 100; i++) {
		for (int j = 0; j < 100; j++) {
			if (thisWorld[i][j] == DEAD) {
				worldBMP->Canvas->Brush->Color = clRed;
				worldBMP->Canvas->Pen->Color = clRed;
			}
			if (thisWorld[i][j] == ALIVE) {
				worldBMP->Canvas->Brush->Color = clLime;
				worldBMP->Canvas->Pen->Color = clLime;
			}
			worldBMP->Canvas->
				Rectangle(i * 5, j * 5, i * 5 + 5, j * 5 + 5);
		}
	}

      // then draw your Bitmap to the PaintBox
	Form1->PaintBox1->Canvas->Draw(0, 0, worldBMP);
}

//===========================================================================
// 		     					       EVENT HANDLERS
//===========================================================================

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner):TForm(Owner)
{
	// set your Bitmap height and width to match your PaintBox
	worldBMP->Height = Form1->PaintBox1->Height;
	worldBMP->Width = Form1->PaintBox1->Width;
}

//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
	// delete your Bitmap
	delete worldBMP;
}
//---------------------------------------------------------------------------